Immoral Angel 1/Immoral Angel 1.iso/mac/MSTR/PROGRAM/ACTRESS.DIR/00181.ls

Text File | 1997-07-10 | 3.6 KB | 148 lines

on startMovie
  global poponoff, packagenum, whichview, status, startTime, qtstatus, photonum, photonummax, selectedvideonum, fileName, cursorwait
  cursor(cursorwait)
  set poponoff to 0
  set whichview to "info"
  set status to EMPTY
  set startTime to ticks()
  set photonum to 1
  set photonummax to 28
  set selectedvideonum to 0
  set qtstatus to "QToff"
  set fileName to "ACTRESS"
  when mouseUp then putMask
end

on button
  global status, bgmonoff
  if status <> EMPTY then
    beepsound()
    return 0
  end if
  set buttonname to item 1 of the name of cast the castNum of sprite clickOn()
  repeat while stillDown()
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of member (buttonname & ",down")
    else
      set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
    end if
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  updateStage()
  if rollOver(clickOn()) then
    puppetSound(bgmonoff)
    updateStage()
    return 1
  else
    return 0
  end if
end

on button2
  global bgmonoff
  set buttonname to item 1 of the name of cast the castNum of sprite clickOn()
  repeat while stillDown()
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of member (buttonname & ",down")
    else
      set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
    end if
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  updateStage()
  if rollOver(clickOn()) then
    puppetSound(bgmonoff)
    updateStage()
    return 1
  else
    return 0
  end if
end

on npbutton
  global status, bgmonoff
  if status <> EMPTY then
    beepsound()
    return 0
  end if
  set spcenter to (the right of sprite clickOn() - the left of sprite clickOn()) / 2
  set which to "0,0"
  set x to 0
  repeat while stillDown()
    if rollOver(clickOn()) then
      set mh to mouseH() - the left of sprite clickOn()
      if mh < spcenter then
        set the castNum of sprite clickOn() to the number of member "prevDown"
        set x to -1
      else
        if mh > spcenter then
          set the castNum of sprite clickOn() to the number of member "nextDown"
          set x to 1
        end if
      end if
    else
      set the castNum of sprite clickOn() to the number of member "nextPrev,up"
    end if
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of member "nextPrev,up"
  updateStage()
  if rollOver(clickOn()) then
    set which to "1," & x
    puppetSound(bgmonoff)
    updateStage()
    return which
  else
    set which to "0," & x
    return which
  end if
end

on beepsound
  global bgmonoff, beepnum
  puppetSound(string(beepnum))
  updateStage()
end

on putmask
  global status
  if status <> EMPTY then
    exit
  end if
  puppetSprite(24, 1)
  set the type of sprite 24 to 1
  set the ink of sprite 24 to 37
  set the foreColor of sprite 24 to 255
  set the backColor of sprite 24 to 0
  set the castNum of sprite 24 to the number of member "cntMask"
  set the locH of sprite 24 to 288
  set the locV of sprite 24 to 280
  updateStage()
  set the type of sprite 24 to 0
  updateStage()
end

on wait t
  set waittime to ticks() + (t * 60)
  repeat while ticks() < waittime
    nothing()
  end repeat
end

on idle
  global startTime, fileName
  checktimeout()
  if fileName = "MAIN" then
    exit
  end if
  set runningtime to ticks() - startTime
  if runningtime > (5 * 60 * 60) then
    set startTime to ticks()
    if random(5) = 2 then
      bomb()
    end if
  end if
end